home *** CD-ROM | disk | FTP | other *** search
- # adding to a list
-
- xtAppInitialize -class Program
-
- xmList .list -visibleItemCount 3
-
- .list addItem fred 1
- .list getValues -items items
- puts stdout "items: $items"
-
- .list addItem bill 1
- .list getValues -items items
- puts stdout "items: $items"
-
- .list addItem paul 0
- .list getValues -items items
- puts stdout "items: $items"
-
- .list manageChild
-
- . realizeWidget
-
- . mainLoop
-